<?php

/***
* 该类方法来源于网上
*/
Class zip{
	Private $StrPath="";
	Private $datasec=array();
	Private $ctrl_dir=array();
	Private $eof_ctrl_dir="\x50\x4b\x05\x06\x00\x00\x00\x00";
	Private $old_offset=0;

	//压缩后下载
	Function DownLoad($curdir,$zipfilename,$out){
		$zipfilename=StrToLower($zipfilename);
		$curdir=Str_iReplace(basename($curdir),"",$curdir);
		chdir($curdir.$this->StrPath);

		header('Content-Encoding: none');
		header('Content-Type: application/zip');
		header('Content-Disposition: attachment ; filename='.Str_Replace(".zip","",basename($zipfilename)).'.zip');
		header('Pragma: no-cache');
		header('Expires: 0');
		print($out);
	}

	//压缩后保存在服务器,默认在/@Upload下
	Function SaveFile($curdir,$zipfilename,$out){
		$curdir=Str_iReplace(basename($curdir),"",$curdir);
		chdir($curdir.$this->StrPath);
		$fp=fopen($zipfilename,"wb");
		fwrite($fp,$out,strlen($out));
		fclose($fp);
	}

	//函数用途:压缩文件夹,递归逐层进行
	//参数详解:$dir需要压缩的目录,$zipfilename压缩后的文件名及存放路径,$Todo处理方式1提供下载2保存文件在服务器
	Function ZipDir($dir,$zipfilename,$Todo){
		IF(!@Function_exists('gzcompress')){Return 0;}
		@set_time_limit("0");
		$this->openFile($dir,$zipfilename);
		$out=$this -> filezip();

		Switch ($Todo){
		Case "1":
			$this -> DownLoad(__FILE__,$zipfilename,$out);
			Break;
		Case "2":
			$this -> SaveFile(__FILE__,$zipfilename,$out);
			Break;
		}
	}

	//函数用途:压缩文件,可以是单个也可以是数组的多个
	//参数详解:$file需要压缩的文件(可为数组),$zipfilename压缩后的文件名及存放路径,$Todo处理方式1提供下载2保存文件在服务器
	Function ZipFile($file,$zipfilename,$Todo){
		IF(!@Function_exists('gzcompress')){Return 0;}
		IF(is_array($file)){
			Foreach($file as $filename){
				IF(is_file($filename)){
					$fd= fopen ($filename, "rb");
					$content= @fread($fd, filesize ($filename));
					fclose ($fd);

					$filename= basename($filename);
					$this -> addFile($content, $filename);
				}
			}
		}Else{
			IF(is_file($file)){
				$fd= fopen ($file, "rb");
				$content= @fread($fd, filesize($file));
				fclose ($fd);
				$file= basename($file);
				$this -> addFile($content, $file);
			}
		}
		$out= $this -> filezip();

		Switch ($Todo){
		Case "1":
			$this -> DownLoad(__FILE__,$zipfilename,$out);
			Break;
		Case "2":
			$this -> SaveFile(__FILE__,$zipfilename,$out);
			Break;
		}
	}

	//递归取得下层文件夹下的文件
	Function openFile($path,$zipName){
		global $_site;
		$temp_path=$path;
		$temp_zip_path=$zipName;
		if(is_array($path)){
			foreach ($path as $k=>$v){

				IF($handle=@opendir($v)){
					While(false !== ($file=readdir($handle))){
						IF($file !='.' and $file !='..'){
							IF(ereg('\.' ,$file.@basename())){
								$fd=fopen($v.'/'.$file,"r");
								$fileValue=@fread($fd,1024000);
								fclose ($fd);
								///upload/item/1/20140620/14032465931809.jpg
								$path_temp = str_replace($_site->_root() . '/upload/item/','',$v);
								$this -> addFile($fileValue,$path_temp.'/'.$file);
							}Else{
								$this ->openFile($v.'/'.$file,$zipName.'/'.$file);
							}
						}
					}
					$zipName=$temp_zip_path;
					$path=$temp_path;
					closedir($handle);
				}
			}
		}else{
			IF($handle=@opendir($path)){
				While(false !== ($file=readdir($handle))){
					IF($file !='.' and $file !='..'){
						IF(ereg('\.' ,$file.@basename())){
							$fd=fopen($path.'/'.$file,"r");
							$fileValue=@fread($fd,1024000);
							fclose ($fd);
							///upload/item/1/20140620/14032465931809.jpg
							$path_temp = str_replace($_site->_root() . '/upload/item/','',$path);
							$this -> addFile($fileValue,$path_temp.'/'.$file);
						}Else{
							$this ->openFile($path.'/'.$file,$zipName.'/'.$file);
						}
					}
				}
				$zipName=$temp_zip_path;
				$path=$temp_path;
				closedir($handle);
			}
		}
	}

	Function addFile($data,$name,$time=0){
		$name=str_replace('\\','/',$name);
		$name=str_replace('./','',str_replace('../','',$name));
		$dtime=dechex($this->unix2DosTime($time));
		$hexdtime='\x'.$dtime[6].$dtime[7].'\x'.$dtime[4].$dtime[5].'\x'.$dtime[2].$dtime[3].'\x'.$dtime[0].$dtime[1];
		Eval('$hexdtime="'.$hexdtime.'";');

		$fr="\x50\x4b\x03\x04";
		$fr.="\x14\x00";
		$fr.="\x00\x00";
		$fr.="\x08\x00";
		$fr.=$hexdtime;

		$unc_len=strlen($data);
		$crc=crc32($data);
		$zdata=gzcompress($data);
		$c_len=strlen($zdata);
		$zdata=substr(substr($zdata,0,strlen($zdata) - 4),2);
		$fr.=pack('V',$crc);
		$fr.=pack('V',$c_len);
		$fr.=pack('V',$unc_len);
		$fr.=pack('v',strlen($name));
		$fr.=pack('v',0);
		$fr.=$name;
		$fr.=$zdata;
		$fr.=pack('V',$crc);
		$fr.=pack('V',$c_len);
		$fr.=pack('V',$unc_len);

		$this -> datasec[]=$fr;
		$new_offset=strlen(implode('',$this->datasec));

		$cdrec="\x50\x4b\x01\x02";
		$cdrec.="\x00\x00";
		$cdrec.="\x14\x00";
		$cdrec.="\x00\x00";
		$cdrec.="\x08\x00";
		$cdrec.=$hexdtime;
		$cdrec.=pack('V',$crc);
		$cdrec.=pack('V',$c_len);
		$cdrec.=pack('V',$unc_len);
		$cdrec.=pack('v',strlen($name) );
		$cdrec.=pack('v',0 );
		$cdrec.=pack('v',0 );
		$cdrec.=pack('v',0 );
		$cdrec.=pack('v',0 );
		$cdrec.=pack('V',32 );
		$cdrec.=pack('V',$this -> old_offset );
		$this -> old_offset=$new_offset;
		$cdrec.=$name;
		$this -> ctrl_dir[]=$cdrec;
	}

	Function filezip(){
		$data=implode('',$this -> datasec);
		$ctrldir=implode('',$this -> ctrl_dir);

		Return
		$data.$ctrldir.$this -> eof_ctrl_dir .
		pack('v',sizeof($this -> ctrl_dir)) .
		pack('v',sizeof($this -> ctrl_dir)) .
		pack('V',strlen($ctrldir)) .
		pack('V',strlen($data))."\x00\x00";
	}

	Function unix2DosTime($unixtime=0){
		$timearray=($unixtime== 0) ? getdate() : getdate($unixtime);
		IF($timearray['year'] < 1980){
			$timearray['year']=1980;
			$timearray['mon']=1;
			$timearray['mday']=1;
			$timearray['hours']=0;
			$timearray['minutes']=0;
			$timearray['seconds']=0;
		}
		Return (($timearray['year'] - 1980) << 25) | ($timearray['mon'] << 21) | ($timearray['mday'] << 16) | ($timearray['hours'] << 11) | ($timearray['minutes'] << 5) | ($timearray['seconds'] >> 1);
	}

	/*
	解压缩部分
	用途:解压缩文件
	参数:$zn需要解压缩的zip文件及路径,$to解压缩的目的地
	*/
	Function Unzip_File($zn, $to, $index = Array(-1)){
		$ok = 0;
		$zip = @fopen($zn, 'rb');
		IF(!$zip){Return(-1);}
		$cdir = $this -> ReadCentralDir($zip, $zn);
		$pos_entry = $cdir['offset'];

		IF(!is_array($index)){
			$index = array($index);
		}
		For($i = 0; $index[$i];$i++){
			IF(intval($index[$i])!= $index[$i] || $index[$i] > $cdir['entries']){Return(-1);}
		}

		For($i=0;$i<$cdir['entries'];$i++){
			@fseek($zip, $pos_entry);
			$header = $this -> ReadCentralFileHeaders($zip);
			$header['index'] = $i;
			$pos_entry = ftell($zip);
			@rewind($zip);
			fseek($zip, $header['offset']);
			IF(in_array("-1", $index) || in_array($i, $index)){$stat[$header['filename']] = $this -> ExtractFile($header, $to, $zip);}
		}
		fclose($zip);
		Return $stat;
	}

	//取得压缩包内的文件信息
	Function get_List($zip_name){
		$zip = @fopen($zip_name, 'rb');
		IF(!$zip){Return(0);}
		$centd = $this -> ReadCentralDir($zip, $zip_name);

		@rewind($zip);
		@fseek($zip, $centd['offset']);

		For($i=0;$i<$centd['entries'];$i++){
			$header = $this -> ReadCentralFileHeaders($zip);
			$header['index'] = $i;
			$info['filename'] = $header['filename'];
			$info['stored_filename'] = $header['stored_filename'];
			$info['size'] = $header['size'];
			$info['compressed_size'] = $header['compressed_size'];
			$info['crc'] = strtoupper(dechex($header['crc']));
			$info['mtime'] = $header['mtime'];
			$info['comment'] = $header['comment'];
			$info['folder'] = ($header['external'] == 0x41FF0010 || $header['external'] == 16)?1:0;
			$info['index'] = $header['index'];
			$info['status'] = $header['status'];
			$ret[] = $info;
			unset($header);
		}
		Return $ret;
	}
	Function ReadFileHeader($zip){
		$binary_data = fread($zip, 30);
		$data = unpack('vchk/vid/vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len', $binary_data);

		$header['filename'] = fread($zip, $data['filename_len']);
		IF($data['extra_len'] != 0){$header['extra'] = fread($zip, $data['extra_len']);}Else{$header['extra'] = '';}

		$header['compression'] = $data['compression'];
		$header['size'] = $data['size'];
		$header['compressed_size'] = $data['compressed_size'];
		$header['crc'] = $data['crc'];
		$header['flag'] = $data['flag'];
		$header['mdate'] = $data['mdate'];
		$header['mtime'] = $data['mtime'];

		IF($header['mdate'] && $header['mtime']){
			$hour = ($header['mtime']&0xF800) >> 11;
			$minute = ($header['mtime']&0x07E0) >> 5;
			$seconde = ($header['mtime']&0x001F) * 2;
			$year = (($header['mdate']&0xFE00) >> 9) + 1980;
			$month = ($header['mdate']&0x01E0) >> 5;
			$day = $header['mdate']&0x001F;
			$header['mtime'] = mktime($hour, $minute, $seconde, $month, $day, $year);
		}Else{
			$header['mtime'] = time();
		}

		$header['stored_filename'] = $header['filename'];
		$header['status'] = "ok";
		Return $header;
	}

	Function ReadCentralFileHeaders($zip){
		$binary_data = fread($zip, 46);
		$header = unpack('vchkid/vid/vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset', $binary_data);

		IF($header['filename_len'] != 0)
			$header['filename'] = fread($zip, $header['filename_len']);
		Else $header['filename'] = '';

		IF($header['extra_len'] != 0)
			$header['extra'] = fread($zip, $header['extra_len']);
		Else $header['extra'] = '';

		IF($header['comment_len'] != 0)
			$header['comment'] = fread($zip, $header['comment_len']);
		Else $header['comment'] = '';

		IF($header['mdate'] && $header['mtime']){
			$hour = ($header['mtime'] &0xF800) >> 11;
			$minute = ($header['mtime'] &0x07E0) >> 5;
			$seconde = ($header['mtime'] &0x001F) * 2;
			$year = (($header['mdate'] &0xFE00) >> 9) + 1980;
			$month = ($header['mdate'] &0x01E0) >> 5;
			$day = $header['mdate'] &0x001F;
			$header['mtime'] = mktime($hour, $minute, $seconde, $month, $day, $year);
		}Else{
			$header['mtime'] = time();
		}
		$header['stored_filename'] = $header['filename'];
		$header['status'] = 'ok';
		IF(substr($header['filename'], -1) == '/')
			$header['external'] = 0x41FF0010;
		Return $header;
	}

	Function ReadCentralDir($zip, $zip_name){
		$size = filesize($zip_name);
		IF($size < 277){$maximum_size = $size;}Else{$maximum_size = 277;}

		@fseek($zip, $size - $maximum_size);
		$pos = ftell($zip);
		$bytes = 0x00000000;

		While($pos < $size){
			$byte = @fread($zip, 1);
			$bytes = ($bytes << 8) | Ord($byte);
			IF($bytes == 0x504b0506){
				$pos++;
				break;
			}
			$pos++;
		}

		$data = unpack('vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size', fread($zip, 18));

		IF($data['comment_size'] != 0){$centd['comment'] = fread($zip, $data['comment_size']);}Else{$centd['comment'] = '';}
		$centd['entries'] = $data['entries'];
		$centd['disk_entries'] = $data['disk_entries'];
		$centd['offset'] = $data['offset'];
		$centd['disk_start'] = $data['disk_start'];
		$centd['size'] = $data['size'];
		$centd['disk'] = $data['disk'];
		Return $centd;
	}

	Function ExtractFile($header, $to, $zip){
		$header = $this -> readfileheader($zip);

		IF(substr($to, -1) != "/") $to .= "/";
		IF(!@is_dir($to)) @mkdir($to, 0777);

		$pth = explode("/", dirname($header['filename']));
		For($i = 0;isset($pth[$i]);$i++){
			IF(!$pth[$i]) continue;
			$pthss .= $pth[$i] . "/";
			IF(!is_dir($to . $pthss)) @mkdir($to . $pthss, 0777);
		}
		IF(!($header['external'] == 0x41FF0010) && !($header['external'] == 16)){
			IF($header['compression'] == 0){
				$fp = @fopen($to . $header['filename'], 'wb');
				IF(!$fp) Return(-1);
				$size = $header['compressed_size'];

				While($size != 0){
					$read_size = ($size < 2048 ? $size : 2048);
					$buffer = fread($zip, $read_size);
					$binary_data = pack('a' . $read_size, $buffer);
					@fwrite($fp, $binary_data, $read_size);
					$size -= $read_size;
				}
				fclose($fp);
				touch($to . $header['filename'], $header['mtime']);
			}Else{
				$fp = @fopen($to . $header['filename'] . '.gz', 'wb');
				IF(!$fp) Return(-1);
				$binary_data = pack('va1a1Va1a1', 0x8b1f, Chr($header['compression']),
					Chr(0x00), time(), Chr(0x00), Chr(3));

				fwrite($fp, $binary_data, 10);
				$size = $header['compressed_size'];

				While($size != 0){
					$read_size = ($size < 1024 ? $size : 1024);
					$buffer = fread($zip, $read_size);
					$binary_data = pack('a' . $read_size, $buffer);
					@fwrite($fp, $binary_data, $read_size);
					$size -= $read_size;
				}

				$binary_data = pack('VV', $header['crc'], $header['size']);
				fwrite($fp, $binary_data, 8);
				fclose($fp);

				$gzp = @gzopen($to . $header['filename'] . '.gz', 'rb') or die("Cette archive est compress閑");
				IF(!$gzp) Return(-2);
				$fp = @fopen($to . $header['filename'], 'wb');
				IF(!$fp) Return(-1);
				$size = $header['size'];

				While($size != 0){
					$read_size = ($size < 2048 ? $size : 2048);
					$buffer = gzread($gzp, $read_size);
					$binary_data = pack('a' . $read_size, $buffer);
					@fwrite($fp, $binary_data, $read_size);
					$size -= $read_size;
				}
				fclose($fp);
				gzclose($gzp);

				touch($to . $header['filename'], $header['mtime']);
				@unlink($to . $header['filename'] . '.gz');
			}
		}
		Return true;
	}
}
?>
